-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 3737
-- card count: 29
-- first card id: 4013
-- list block id: 9934
-- print block id: 2889
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 242848 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on arrowkey
end arrowkey



on DoColorThing
  CreditsDialog 8469,1040,1044
  CreditsDialog 8469,1045,1061
end DoColorThing


on DoBWThing
  CreditsDialog 8469,1041,1044
  CreditsDialog 8469,1045,1061
end DoBWThing


on funct1
  global theProc, PathHolder, FrontField

  put item 2 of SystemEnv() into theProc
  -- put SystemEnv()
  put "OV" into FrontField

  if the version <1.2
  then
  Answer "This stack requires HyperCard 1.2" with "OK"
  go home
end if

hide menubar
hide msg

put last word of the long name of this stack into PathHolder
delete first char of PathHolder
delete last char of PathHolder
put offset (the short name of this stack,PathHolder) into firstChar
delete char firstChar to (the number of chars in PathHolder) of PathHolder

if the CommandKey is "Down"
then
visual effect iris open
go to card "Shelf"
exit funct1
end If

if theProc < 68020
then
set lockscreen to true
-- show 1 card
go to card 1
set lockscreen to false

visual effect dissolve very fast
go to next card

play "opening"

repeat 12 times
  visual effect dissolve very fast
  go to next card
end repeat

else
  visual effect dissolve
  go to next card

  play "opening"

  repeat 12 times
    visual effect dissolve
    go to next card
  end repeat

end if

end funct1